unit Unitcfje;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unitcf, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore,
  dxSkinDevExpressStyle, cxStyles, dxSkinscxPCPainter, cxCustomData,
  cxFilter, cxData, cxDataStorage, DB, cxDBData, cxTextEdit,
  cxCurrencyEdit, DBAccess, Uni, MemDS, VirtualTable, StdCtrls,
  cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxClasses, cxGridCustomView, cxGrid, cxLabel, cxGroupBox,
  dxSkinOffice2010Blue;

type
  TFcfje = class(TFcf)
    procedure vtDSDesigner6Change(Sender: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fcfje: TFcfje;

implementation
uses gdata;
{$R *.dfm}

procedure TFcfje.vtDSDesigner6Change(Sender: TField);
begin
if VarIsNull(vtDSDesigner6.Value) or VarIsNull(vtDSDesigner5.Value) then Exit;
   vtDSDesigner4.Value:=vtDSDesigner6.Value/vtDSDesigner5.Value;
if dlinfo.taxflag then
   vtDSDesigner8.Value:=vtDSDesigner6.Value/(vtDSDesigner7.Value+1)*vtDSDesigner7.Value
   else
   vtDSDesigner8.Value:=vtDSDesigner6.Value*vtDSDesigner7.Value;
end;

end.
